

; Optimization
; provides operators that check that we are always working on flonums/fixnums (64bit IEEE floats (doubles),  32/64 bit integers)
; for speed
; use one of the blocks bellow, the includes in the first one are only available in newer versions of drScheme


;(require scheme/flonum)              ; fl+ fl- etc
;(require scheme/fixnum)              ; fxquotient fx* etc
;(require rnrs/arithmetic/flonums-6)) ; fixnum->flownum

(define fl= =)
(define fl< <)
(define fl> >)
(define fl<= <=)
(define fl>= >=)
(define fl+ +)
(define fl- -)
(define fl* *)
(define fl/ /)
(define flmax max)
(define flmin min)
(define flsqrt sqrt)
(define flsin sin)
(define flcos cos)
(define fx+ +)
(define fx- +)
(define fx* *)
(define fxquotient quotient)
(define fixnum->flonum exact->inexact)

